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° 14- g0n- 138 90: bbia3 CLIUTL. SROM QUEMAN.B32;1 ° (1). 
; 1 608) MODULE QUEMAN (TITLE ‘Queue Management Commands’ i 
3 ¢ 0 § MAIN = QUEMA i 
; 99 IDENT = 'Vv04-600" | : 
; 5 0005 1 BEGIN ; 
; 5009 i : H 
: : si : i eeeeeeeeeeeeReReKeeeeHeeHeeeeeeeeeeneeedeneeeeneeeeeeeeeeeeeeeneeeeneeeeeer : 
i 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * j 
: 11 0011 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * | : 
: \¢ pote : . ALL RIGHTS RESERVED. - ‘ 
8 14 0014 1 !* THIS SOFTWARE Y FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ‘ 
: 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | i 
; 16 Bog 1 !® INCLUSION OF THe oy E Spd NOTICE. rai SOFTWARE OR ANY OTHER’ * ; 
; 17 001 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ‘ 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * i 
; 1 ith ! * TRANSFERRED. * 3 
3 'e * é 
a 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * i 
| a ihe 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
3 St Oo5é : - CORPORATION. 7 3 
> ae 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | ; 
; & B0¢8 1 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
. ar 0027 1 !« * 3 
; 0028 1 !* * ; 
: ra") it 34 SMBS Scere eect TTT TI TIT T TIT TTT ITI TTT TTT ITT TT TT TiTi ti titi Tt Fy 
; BD 0030 1! 3 
ce. ae 0031 #1 3 
i 3 003¢ 1 i+ | : 
3 3 0033 1 ! FACILITY: 3 
; 34 0034 1} Queue Management Commands. ‘ 
; @ 0035 1! : 
; 0036 1 ! ABSTRACT 3 
: 7 0037 1 This module paptonente the fel Leutng commands: | 3 
3 8 0038 1! ASSIGN /MERGE F 
; 39 0039 1! ASSIGN /QUEUE : 
:; 40 0040 1! DEASSIGN /QUEUVE | 3 
: «(41 0041 1! DEF INE /CHARACTERISTIC i 3 
; 42 nd 1! DEF INE /FORM i 
; 643 0045 1! DELETE /QUEUE | é 
; 644 oes 1! INITIALIZE /QUEUE : 
3.6 445 045 1! SET Q F 
5 & Boe8 1! SHOW QUEUE 3 
: 67 0047 1! START /QUEUE F 
; 48 0048 1! STOP /QUEVE 3 
; 69 0049 1! SYNCHRONIZE : 
; 9 0050 1! 3 
4 1 ith 1 ! ENVIRONMENT: : 
3 26 O3¢ 1! VAX/VMS user mode. 3 
3 2 053 1 !-- : 
: 4 pee 1! 3 
3 55 te ! : AUTHOR: M. Jack, CREATION DATE: 30-Apr-1982 | ; 
3 3$ 0089 1 ! MODIFIED BY: : 
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v0e~000 . eaeeen18ke P3ibeies Leer OSRE fade mn Sao, ath 
; 8 O38 1! 
3 9 1! v03-014 ghx0eee rycka WNER GIO 
: 60 060 1 ix bug in — Les mpc IC 
: 6 062 1! v03-009 JaKo220 Krycka 20-Jul-1984 
; © 065 1! svopert t the /BUFFER. COUNT and /EXTEND “QUANTITY qualifiers for 
: 64 0064 1! START/QUEUE/MANAG 4 
3; 69 Bnee : Support /DEFAULT= NOJFEED at the queue level. 
: 67 0067 1! v03-008 PCG0001 Peter George 13-Mar-1984 | 
3 +4 Boe8 : } Increase size of item List buffer. 
: 0 8090 1 i v03-007 MLJ0118 Martin L. Jack, 23-Aug-1983 | 
3 4 tal : Change names to track SSJCDEF, implement page setup. 
wa. 0073 1: V03-006 MLv0115 Martin L. Jack, 30-Jul-1983 | 
3 a Bere : Changes for job controller baselevel. | 
> 76 0076 1! vO3-005 MLU0114 Martin L. Jack, 23-Jun-1983 | 
; a dh : Changes for job camonn tad baselevel. | 
: 79 0079 1: v03-004 MLJ0113 Martin L. Jack, 26-May-1983 
; go ies } Changes for job conevei tee baselevel. | 
; 82 0082 1: v03-003 MLy0112 Martin L. Jack, 29-Apr-1983 
3 o a ! Changes for job controlar baselevel. 
> 85 0085 1! v03-002 MLU0109 Martin L. Jack, 13-Apr-1983 | 
3 Hd ones : Implement SET RESTART. Change ABORT_QUEUE to ABORT_JOB. 
: 8B 0088 1 i VO3-001 MLJ0106 Martin L. Jack, 01-Mar-1983 | 
; «889 0089 1! Changes for job aeeseailie baselevel. 
: 90 0090 1! 
3 9) 0091 1 !e« 
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9 LIBRARY 'SYSSLIBRARY:STARLET'; 
3 REQUIRE 'SRC$:JBCPRSDEF'; 
9 
9 LITERAL 
9 TRUE= 1, 
9 FALSE= 0; 
64 
0 STRUCTURE 
9 BBLO Kt0,P,S,E:NJ= | 
0 (BBLOCK + 0)<P,S,E>; 
PSECT | 
CODE= CODE, 
PLIT= CODE, 
OWN= DATA, 
GLOBAL= DATA; | 
FORWARD ROUTINE | 
QUEMA 


N 
HANDLER; 


EXTERNAL ROUTINE 
CLISGET_VALUE: ADDRESSING_MODE (GENERAL), . 
' Get a parameter or qualifier value 
CLISPRESENT: ADDRESSING_MODE (GENERAL) ; 
' Determine if entity is present 


EXTERNAL LITERAL 
ae tree Bd 


~INVFORNAM, 
QUEMANS— INVF ORNUM, 
QUEMANS~ INVLOGF IL; 
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EXIT_STATUS: BBLOCK(4]; ! Most severe error status 
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CLIUTL.SRCJQUEMAN.B32 (3) | 
ROUTINE QUEMAN= 


lee 
' 


i FUNCTIONAL DESCRIPTION: 
This routine is the main entry point for the queue management commands. 


i INPUT PARAMETERS: 
Standard VMS activation parameters (not used). 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


Completion status. 
SIDE EFFECTS: 
NONE 
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LOCAL 
VALUE_DESC: BBLOCKCOSC$C_S_BLN), ' Qualifier value descriptor 
VERB_DESC: BBLOCKCDSC$C_S_BLNJ, ! Verb value descriptor 
ITEM_BUFFER: BBLOCK(L1536), ! $SNDJBC item buffer 
DATA_BUFFER: BBLOCK(1024), ' $SNDJBC data buffer 
VERB, ' Verb code 
FUNC, ' Function code 
SAVED_ICURSOR, ! Saved cursor values 
SAVED_DCURSOR, ' —_ 
10SB8: VECTORC4,WORD), ! 1/0 status block 
STATUS; 
MACRO 
+ = BIND ZNAME('D_*, A) = SDESCRIPTOR(A) 2%; 
"SVERB', 
a 4 | 
 ] i} 
*ABORT’, | 
"AFTER', 
"A t 


"BACKWARD' 

"BASE PRIORITY’, 

*"BATCR’, 

"BLOCK LIMIT’. 
*BUF FER_COUNT 
URST® 
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PARSE _GLOBAL REGISTERS; 


Initialize. 
EXIT g fATUS = SSS$_NORMAL; 


.FP = HANDLER; 
VALUE _DESC DSCSB_CLASS] = DSCSK_CLASS_ 
VALUE_DESCCDSC$B_DTYPEJ = DSCSK-DTYPE.T 
VALUE_DESCEDSC$W-LENGTH] = 0: 
VALUE -DESCCDSC$A-POINTER) = 0; 
VERB_DESC DSC$B_CLASS3 = DSCSK_CLASS_S; 
VERB_DESCCDSCS$B_DTYPE) = DSCSK-DTYPE_T; 
VERB-DESCCDSCS$W_LENGTH] = 4; 
VERB_DESCCDSCSA_POINTER) = VERB; 
Identify the command verb. 
CLISGET VALUE(D_S$VERB, VERB_DESC); 
SELECTORE . VERB” OF 
A 1" VERB = K_ASSIGN; 
"DEAS'): VERB = K~DEASSI 
"DEFI'): VERB = K~DEFINE; 
"DELE']: VERB = K~DELETE: 
*INIT'): VERB = K"INITIA 
"SET * VERB = K7SET; 
' 3: VERB = K~SHOW; 
*STAR']: VERB = KISTART; 
' 2: VERB = K~STOP; 
*SYNC'): VERB = K7SY 
FOTWERWISE: RETURN SS$_NOR 
PARSE_GLOBAL_INIT 
ITURSOR=" ITEM BUFFER. 
DCURSOR=  DATA™B 


UF FER 
MESSAGE= QUE EMANS FACILITY*16 OR SHR$_BADQNAME OR STSS$K_SEVERE, 


VALUE _DESC= VALUE_DESC); 


FUNC = .FUNCTION_CODESC.VERB); 


aed” | a FROM K_ASSIGN TO K_SYNCHRONIZE OF 


CK_ASSIGN): 
BEGIN 
PARSE _CALL (QUEUE, p. Pl, SJC 
PARSE-CALL(QUEUE, D-P2, SJC 


$_DESTINATION_QUEUE) ; 
$_ QUEUE); 
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ce een Pa THEN FUNC = SJC$_MERGE_QUEUE; 


CK_DEASSIGN: 

PARSE _CALL(QUEVE, D_P1, SJCS$_QUEUE); 
Cher Ie): 

Fen eae DNR TEREST ECD 


Q_MESSA 

are CALL (OBJECT oa cbr Pi, *sucs_ CHARACTERISTIC_NAME) ; 

PARSE_CALL (CHAR NNUMBERL — SJCS_CHARACTERISTIC_NUMBER) ; 
ELSE 
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QEBRANLSSSIEREEN AS SHV 


SSELEAEAN SS SBN ARNIS 


Q ME INVEORNAM 
PARSE CALL (OBJEC! NAME, D me ‘Suc, FORM_NAME) ; 
= 


& 
4 
4 
4 
4 
3 
4 
4 
4 
4 
& 
4 
& MESSA 
2 PARSE _CALL(STRING 255, D ase? CRIPT 
4 
& 
4 
4 
4 
4 
4 
4 
4 
& 
& 
4 
& 
4 
4 
4 
4 
& 
4 
4 
4 
& 
& 
| 


; 04 MESSAGE = Q ENARS I N 

: 391 0498 PARSE CALL (NUMBER B_P2, SJC$FORM_NUMBER) 

: 3 - 0499 SAGE = QUEMANS FACILITY*T6 ¢ + SHRS_ INVQUAVAL + STSSK _SEVERE; 
: 394 9901 SIC$_FORM DESCRIP T10 

: 395 P 208 PARSE CALL (NORZE aease, *D_LENGTH, 

: 396 050 SJC$_F Tenet. 

: 397 P 0204 PARSE EAC CHURBER D -HARGIN BOTTOM, 

; 398 3 5 SJC$_FORM_MARGIN- BOTTOM); 

: 399 P 0 06 PARSE Fert CRURBER D “RARGIN,. Cert, 

: 400 50 SJC$_FORM REIWT FT); 

3 401 Pp 0308 PARSE_CACL(NUMBER, D =PARGIN. RIGHT, 

: 40 05 SJC$_FORM RARGINR 

: 40 P 0510 PARSE ACL ORURBER “RA RGIN: TOP, 

> 404 0511 SJC$_FORM_MAR AARGIN TOP) ; 

: 405 Pp O1¢ PARSE CALL ( CORMA LIST, D_PAGE_SETUP, 

; 406 051 SJC$_P E SETUP nODUCES SJC$_NO_PAGE_SETUP_MODULES) ; 
: 40 P 0514 PARSE FALL CORRAL D_SETtuP, 

: 608 0515 SJC$_FORM SETUP nODUces. $JC$_NO_FORM_SETUP_MODULES); 
> 409 Pp 0516 PARSE EACL CIP TRUE FALSE. D.SHEET~FEED, 

: 410 51 SICS$_FORM-SHEET FEED, SJC$_NO-FORM. SHEET_FEED); 

: 41) P 318 PARSE SCACL (OBJECT N NAME, 6_STOCR, 

: 418 P 0520 PARSE EACL CIF “TRUE FALSE, D TRUNCATE, 

> 414 521 $JC M"TRUNCATE, SJ cs NO_ FORM, TRUNCATE) ; 

> 615 P 05 é PARSE FALL CNORTER 0 UNGER. “WITH, 

: 416 5 FORM_W Of 

+ 41 P 0524 PARSE_CACL (IF ~TRUE -FALSE. _WRAP, 

; 418 3 : SIC$_FORM~WRAP; SJC$_NO~FORM. WRAP); 

: 420 END; 

oe 

+ 4 § 530 (K_DELETE): 
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BEGIN 
Fee rent DA CHARACTERISTIC) 


BEGIN 

FUNC = SJCS_DELETE CHARACTERISTIC; 

Q_ MESSAGE = QUEMANS_INVCHANAM; 

PARSE _CALL(OBJECT_NAME, D_P1, SJCS_CHARACTERISTIC_NAME); 


. 3 IF CLISPRESENT(D_FORM) 


SRVERF GS 


MEwrn DONO 


BERR E EERE REE EEE 


PUPUPUSVSUSUSUSUSISUSI SSIS 


Man 
; 4 
3 4 
3 4 
; 4 
: io 3 4 
; 41 4 BEGIN 
; 4g 4 FUNC = SJC$_DELETE FORM: 
; 43 4 Q MESSAGE ="QUEMANS_INVFORNAM; 
: 44 4 PARSE _CALL(OBJECT_NAME, D_P1, SJCS$_FORM_NAME); 
; 46 2 ELSE 
: 440 47 4 BEGIN 
> 641 48 4 PARSE CALL(QUEUE, D_P1, SJC$_QUEUE); 
> 66 49 4 Q_ MESSAGE = QUEMANS-FACILITY"16 + SHRS_INVQUAVAL + STSSK_SEVERE; 
: 66 0550 4 SAVED_DCURSOR = .Q_BCURSOR; 
: 464 0551 4 SAVED-ICURSOR = .Q~ICURSOR: 
3; 445 $236 5 IF PARSE_CALL_VALUE(ENTRY, D_ENTRY) 
; 646 822 4 THEN 
+ 66 554 4 FUNC = SJC$_DELETE_JOB; 
+ 668 0555 END; 
:; 449 8228 END; 
: 450 55 
: 451 0558 
; 43¢ 559 CK_INITIALIZE): 
: 45 560 BEGIN 
3 454 561 PARSE _CALL(QUEUE, D_P1, SJC$_QUEUE); 
: 455 36¢ Q MESSAGE = QUEMANS-FACILITY"16 + SHRS_INVQUAVAL + STSSK_SEVERE; 
: 436 056 PARSE _CALL(BASE PRIORITY, D_BASE_PRIORITY); 
: 45 P 0564 PARSE-CALL(IF _TRUE_FALSE, D~BATCA, 
: 458 0565 SJC$_BATCA, SJC$_NO_BATCH); 
> 459 Pp 0966 PARSE_CACL(LOWER UPPER, ~D_BLOCK_LIMIT, 
+ 460 P 056 SJC$_JOB_SIZE_MINIMUM; SJC$~NO_JOB_SIZE_MINIMUM 
> 461 568 SJC$~JOB~SIZE-MAXIMUM, SJC$"NO-JOB~SIZE MAXIMUM); 
> 46 0569 PARSE_CACL(CRARACTERISTICS, D CRARACTERISTICS); 
: 46 P 0570 PARSE-CALL(CPUTIME, D_CPUDEFAOLT, 
: 464 571 SIC$_CPU_DEFAULT, ~SJC$_NO_CPU_DEF AULT); 
: 465 P 0572 PARSE_CACL(CPUTIME, 0 CPUMAXIAUM, 
: 466 573 SJC$_CPU_LIMIT. SJC$_NO CPU LIMIT); 
+ 467 Pp 0574 PARSE _CACL(IF_TRUE, D_DEFAUCT_BORST_ALL, 
3 468 75 SIC$_FILE“BURST); 
+ 469 Pp 376 PARSE _CACL(IF-TRUE, 6 DEFAULT_BURST_ONE, 
: 470 57 SIC$_FILEBURST_ORE): 
: 671 P 378 PARSE_CACL(IF FALSE D_DEFAULT_BURST, 
: 47 57 SJC$_NO_FILE BURSTY: 
> 47 P 05 PARSE _CACL(TF_TROE_FALSE. D_DEFAULT FEED, 
> 474 581 SJC$_PAGIRNATE, SJC$_NO_PAGINATED; 
+ 675 P 05 ; PARSE_CACL(IF_TRUE, D_DEFAOLT_FLAG_ALL, 
+ 47 3 SICS$_FILETFLAGS; 
+ 47 Pp PARSE_CACL(IF-TRUE, D_DEFAULT_FLAG_ONE, 
> 478 585 SIC$_FILE“FLAG : 
: 479 P 05 PARSE_CACL(IF-FALSE, D_BEFAULT_FLAG, 
; 05 SIC$_NO_FILE_FLAG): 
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SJC$_CREATE STARTS; 
PARSE CALL (LE TRUE _FALSE D_TERMINAL, 
SIC$_ TERMINAL, “SJC io, TERMINAL): 
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PARSE_CACL (WORKING. SET, ~D_QSQUOTA 
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: 709 0 1 SHOWQUEUE () 

; £10 9 af RETURN “EXIT _STATUS OR STS$M_INHIB_MSG; 

; ay 819 

Te | 820 

: 714 821 CK_START): 

: 715 08 ; 

: 716 08 IF CLISPRESENT(D_MANAGER) 

> 717 0824 THEN 

: 718 0825 4 BEGIN 

: 719 0826 4 UNC = SJC$_START_QUEUE_MANAGER; 

: 720 0827 4 Q MESSAGE ="QUEMANS_FACILITY*16 + SHRS_INVQUAVAL * STS$K_SEVERE 
> 721 P 0828 4 PARSE _CALL(STRING 255, D_P1 

ee. : 0829 4 SJC$_QUEUE FICE SPECIFICATION); 

: 72 0830 4 PARSE_CACL (BUFFER_COUNT,D BUFFER COUNT); 

: 726 0831 4 PARSE CALL (EXTEND QUANTI TY,D_EXTEND_QUANTITY) 
: 725 P OB3¢ 4 PARSE-CALL(IF_TRUE, D_NEW_VERSION, 

: 726 0833 4 SJC$_NEW_ VERSION): 

: 727 0834 4 PARSE_CACL(ON, D_ON); 

: 728 0835 4 

; 129 0836 3 ELSE 

3; 730 0837 4 

: 731 0838 4 PARSE CALL (QUEUE ; D_P1, SJC$ QUEUE); 

; 03 0839 4 AGE = QUEMANS-FACILITY"16 + SHRS_INVQUAVAL + STSS$K_SEVERE; 
: 73 0840 4 PARSE_CALL(ALIGN, D-ALIGN); 

: 734 0841 4 PARSE~CALL (BACKWARD, D BACKWARD) ; 

: 135 O84¢ 4 RSE-CALL(BASE_ PRIORITY, D_BASE. PRIORITY); 

: 7 P 0843 4 PARSE -CALL(IF TRUE, D TBATCHT 

: 737 0844 4 SJC$_BATCA); 

: 738 P0845 4 PARSE CACL (LOWER MPPER, D_BLOCK_LIMIT 

: 739 P 0846 4 $JC SIZE_AINIMUM; SJC$-NO_JOB_SIZE_MINIMUM 
: 740 0847 4 SCS ~40B 3 E-MAXIMUM, SJC$-NO~JOB~SIZE MAXIMUM); 
: 741 0848 4 PARSE ~CACL (CRARACTERISTICS dD CRARACTERI STits); 
o ™ P 0849 4 PARSE-CALL(CPUTIME, D_CPUDEFA 

; 0850 4 SIS" CPU_DEFAULT “SCs NO, CPO DEFAULT): 

> The P0851 4 PARSE _CACL(CPUTIME, 6_CPUMK 

: 745 0B5¢ 4 EI¢$ CPU_LIMIT, SIC$ NO. by Me IMIT): 

> 746 P0853 4 PARSE_CACL(IF_TRUE, D_DEFAUCT_BORST_ALL, 

: 747 0854 4 SIC$_FILE-BURST); 

: 748 P0855 4 PARSE_CACL (IF ~TRUE 6 DEFAULT_BURST_ONE, 

> 749 0856 4 SIC$_FILE-BURST_ONE) 

: 750 P 0857 4 PARSE_CACL(IF-F FAL SED <P spérAuLt _BURST, 

> 751 0858 4 SJC$_NO_FILE 

; 03¢ P 0859 4 PARSE EAC CTF TR OF “FALSE, D_DEFAULT_FEED, 

: 7 860 4 SJC$_PAGINATE gst NO_PAGINATED; 

: 754 P 0861 4 PARSE CACL CIF. TRO D DEFAOLT: CFLAG “ALL, 

: 755 086¢ 4 SJC$_FILE-FLA E 

: 756 P 086 4 PARSE_CACL(IF-TRUE, D_DEFAULT_FLAG_ONE, 

: 757 . = SICS$_FILE“FLAG_ONE); 

: 758 P 0865 4 PARSE_CACL(IF-FALSE, D_DEFAULT_FLAG, 

: 759 866 4 SJC$_NO FILES FL 

: 760 Pp 86 4 PARSE _CACL (TF TROES D. DEFAULT _TRAILER_ALL, 

: 761 68 4 SICS_FILE~TRAILERD; 

: r6¢ P 869 4 PARSE_CACL(IF-~TRUE, ) DEFAULT _TRAILER_ONE, 

: 76 0 4 SIC$_FILE~TRAILER™ ONE) 

: 764 Pp rt 4 PARSE CACL(IF “FALSE, 6 =BEF uct _TRAILER, 

: 765 0872 4 SIC$_NO_FILE_TRAILER) 
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; 766 P 0873 4 PARSE_CALL(IF_FALSE D_DEF AUL 

: 76 0874 4 SIC$_NO_FILE BURST; SJCS_NO_FILE FLAG, SUC$_NO_FILE_TRAILER); 
: 768 P 0 75 & PARSE_CACL(TIF_TROE FALSE. D_BSISABLE_ SWAPPING, 

: 769 i: 4 SJC$_NO_SQAP, SuC$_SWAPT; 

: 770 P 0877 4 PARSE _CACL(TF TRUE FALSE, D_ENABLE GENERIC 

: 771 0878 4 SIC$ GENERIC_SELECTION, SJC$_NO_GENERIC_SELECTION); 
; 0 879 4 PARSE_CACL (FORM, D_FORM); 

: 77 0880 4 PARSE-CALL(FORWARD; D_FORWARD); 

: 77% 0881 4 PARSE-CALL(GENERIC, D-GENERIC): 

: 775 8 : 4 PARSE-CALL(JOB._ LIMIT, ~D JOB LIMIT); 

: 776 P 0883 4 PARSE CALL(FILENAME, D_CIBRARY, 

: 777 0884 4 SIC$_LIBRARY SPECIFICATION, SJC$_NO_LIBRARY_SPECIFICATION) 
: 778 P 0B8S 4 PARSE_CACL(IF_TROE, D_NEXT, 

: 779 0886 4 SIC$_NEXT-JOB) ; 

: 780 0887 4 PARSE_CACL(ON, D_ON); 

: 781 0888 4 PARSE-CALL(OWNER, D_OWNER_UIC); 

; 18e P 0889 4 PARSE -CALL(FILENAME, D_PROCESSOR 

: 78 0890 4 SIC$_PROCESSOR, SJC$_NO sProctsson); 

: 784 0891 4 PARSE_CACL(PROTECTION, D-PROTE 

: 785 P 089¢ 4 PARSE-CALL(IF TRUE, D RETAI tL 

: 786 0893 4 SIC$_RETAIN ALL_JOBS) ; 

: 787 P 0894 4 PARSE_CACL(IF_TRUE, D_RETAIN_ERROR, 

: 7 0895 4 SIC RETAIN ERROR” JOBS) ; 

: 789 P 0896 4 PARSE fate (IF_FALSE, 6_RETAIN, 

: 790 0897 4 SJC$_NO_RETAIN JOBS); 

: 791 P 0898 4 PARSE EAC SEARCH_STRING, D_SEARCH, 

: 79 0899 4 SJC$ EARCH. CorRING) 

: 79 P0900 4 PARSE cACL (IF TRUE_FALSE, D_SCHEDULE SIZE, 

3 794 0901 4 SJC$_JOB_SIZE SCHEDULING, SJC$_NO JOB. SIZE SCHEDULING) ; 
: 795 P0902 4 PARSE CAL CF 4 fe _FALSE, D_SEPARATE GBUR 

: 796 0903 4 08 BUR RST; SJC$.NO-JOB_BURST); 

: 797 P0904 4 PARSE cACL GF RUE FALSE: D 108 SURST) 

: 798 0905 4 SJC$ 08 FLA G,~SJC$_NO JOB FLAG); 

: 799 P0906 4 PARSE eater List, 6 SEPARATE R ESET, 

; 800 0907 4 JC$_JOB_RESET_MODULES, SJC$ aoe 108, RESET MODULES); 
: 801 P0908 4 PARSE _CACL(IF TRUE-FALSE, 0 SP ORRATE Y 

; 80 0909 4 SJC$_JOB_TRAILER, SJC$_RO_JOB_T a 

: 80 P0910 4 PARSE_CACL(IF_FALSE, D_ tty RA 

: 804 P0911 4 JC$_NO_JOB_BURST,~SJC$_NO_JOB_F 

: 805 912 4 JC$"NO~JOB~RESET MODULES “Sics io’ jOB_TRAILER); 
> 806 P0913 4 PARSE_CACL(TF_TRUE_FACSE, D_TERM 

: 807 0914 4 JC$_TERMINAL, SJC$_NO TE Meg 

: 808 P0915 4 PARSE_CACL(IF_TRUE, D_TOP_OF_FILE, 

; 809 916 4 JC$_TOP_OF FILE)? 

: 810 P0917 4 PARSE_CACL(WORKING SET, D_WSDEFAULT, 

> 811 918 4 SIC$_WSDEF AULT? SuCS_RO WSDEF AULT) ; 

; gig P0919 4 PARSE CACL(WORKING. SET, B_WSEXTEN 

; 81 0920 4 SIC$ WSEXTENT “SJic$_NO_WSEXTENT); 

: 814 P 09 Be PARSE_CACL (WORKING. SET, D_QSQUOTA 

: 815 3 : 4 SIC$_ HSQUOTAS SJC$_NO-~WSQUOTA); 

: Bi? 03 4 END; 

; gg 925 

$ 19 358 

; Ha ; (k_STOP): 

; 2 09 § IF CLISPRESENT(D_MANAGER) 
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14-Sep-1984 12:08:42 CLIUTL.SRCJQUEMAN.B32; 
THEN 
BEGIN 
FUNC = SJC$_STOP_QUEUE_MANAGER; 
ELSE 
BEGIN 
PARSE _CALL(QUEUE, D_P1, SJC$_QUEUE); 
Q_MESSAGE = QUEMANS-FACILITY"16 + SHRS_INVQUAVAL + STSSK_SEVERE; 
IF CLISPRESENT(D_ABORT) THEN FUNC = SJC$_ABORT_JOB; 
IF CLISPRESENT(D-NEXT) THEN FUNC = SJCS$-STOP QUEUE; 
IF CLISPRESENT(D-RESET) THEN FUNC = SJCS-RESET_QUEUE; 
IF PARSE_CALL_VALUE (ENTRY, D_ENTRY) 
FUNC = SJC$_ABORT_JOB; 
IF CLISPRESENT(D_REQUEUE) 
THEN 
BEG! 
FUNC = SJC$_ABORT_JOB; 
Q_ICURSOR(070,16,0) = 0; 
Q-ICURSOR 20.18.01 = $JC$_REQUEUE; 
Q-ICURSOR 440.3 ,0] = 0; 
Q-ICURSOR(8,0,32,0) = 0; 
Q7ICURSOR = .@ ICURSOR + 12; 
PARSE_CALL(QUEDE, D_REQUEUE, 
JC$_ DESTINATION QUEUE): 


S 

PARSE_CACL(IF_TRUE, B_HOLD, 
SJC$_HOLD); 

PARSE_CACL (PRIORITY, D_PRIORITY); 


Ck_SYNCHRONIZE: 


PARSE _CALL(QUEUE, D_QUEVE, SJC$_QUEUE, SDESCRIPTOR(*SYSS$BATCH’)); 
ESSAGE = QU « ACILITY* 167+ SHR$_INVQUAVAL + STSSK_SEVERE; 
PARSE _CALL(ENTRY, D_ENTRY); 
MESSAGE = QUEMANS-FACILITY“*16 OR SHR$_BADJOBNAME OR STSSK_SEVERE; 


= 
PARSE_CALL(NAME, D_P1); 
END; 
TES; 
BEGIN 


End the item List. 
Q_ICURSORLO,0,32,0) = 0; 


Queue Management Commands 


18-56 -$ep-1984 t 99: 43: 234 Ax-11 8 a egcce V4.0-74 Page iy 


14-Sep-1984 8:42 CLIUTL. QUEMAN.B32; 
3 B} g 7 } For a SYNCHRONIZE command, purge the working set before waiting. 
3 B 2 5 IF .VERB EQL K_SYNCHRONIZE 
; ¢ a4 SPURGWS(INADR=UPLIT(O, 2X°7FFFFFFF')); 
3 4 99 
; 88 994 ! Issue the request. 
; 888 0995 ‘ 
3; 889 P 0938 STATUS = SSNDJBCW( 
; 890 P 099 FUNC=.FUNC, 
> 891 P 3238 ITMLST=] TEM_BUFFER, 
; 89 999 10S8= ); 
; 89 1000 If .STATUS THEN STATUS = .10SB; 
: 894 1001 IF NOT .STATUS THEN SIGNAL(.STATUS) 
; 895 1906 END 
>; 896 100 WHILE 
3; 897 1004 
; 898 1005 IF .VERB EQL K_DELETE 
; 899 1006 THEN 
; 900 1007 4 BEGIN 
; 901 1008 4 Q_DCURSOR = .SAVED <PEUR SOR: 
; a6 1009 4 Q-ICURSOR = .SAVED-ICUR 
; 90 1010 5 PARSE CALL * VALUECERTRY % RinTRY? 
3: 904 1011 4 ND 
; 905 iste ; ELSE 
; 906 101 FALSE 
: 907 1014 END; 
; 908 1015 
; 909 1016 
; 910 1017 2 .EXIT_STATUS OR STS$M_INHIB_MSG 
; 911 1018 1 END; 
; INFO#250 L1:0440 
; Referenced LOCAL symbol VERB is probably not initialized 


TITLE eee Queue Management Commands 
-IDENT \vV04-000\ 


.PSECT DATA,NOEXE,2 
00000 EXIT_STATUS: 
-BLKB 


4 
-PSECT CODE,NOWRT,2 

42 52 45 56 24 00000 P.AAB: .ASCII \S$VERB\ : 

0005 “BLKB 
90000005 0008 P.AAA: .LONG : 
0900000" 000 “ADDRESS P.AAB : 
0010 P.AAD: ASCII \Pi\ : 

001 *BLKB 
9900000 0014 P.AAC: LONG ; 
0990000" 0018 -ADDRESS P.AAD : 
OO1C P.AAF: .ASCII \P2\ ; 

Ooi “BLK 

00000002 00020 P.AAE: ;LONG : 


} 
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04-000 ° eree= ibe P3ibai2s | ee bT Oke sad emnco3074 cheer 5 
00000000' 4 .ADDRESS P.AAF : 
54 52 4F 9 9” § 8 P.AAH: “ASCII wee : | 
90000005 6 8 P.AAG: .LONG : | 
000000" “ADDRESS P.AAH : | 
52 45 54 46 41 0 . P.AAJ tf AFTER\ : 
90000005 : 40 P.AAL: .LONG : 
0000000" 00044 “ADDRESS P.AAJ : 
4E 47 49 4C 41 0048 P.AAL: ASCII \ALIGN\ : | 
99000005, 00080 P.AAK - LONG : 
4 “ADDRESS P.AAL : 
44 52 41 57 4B 43 060006 Fs Sere rT ot \BACKWARD\ ¢ 
00900009" 0064 ° = -ADDRESS._ P.AAN ; | 
59 54 49 52 4F 49 52 50 SF 45 53 41 & Bae P.AAP: at | pee renee res : 
9000000 80978 P.AAO: .LONG F 
0000000" 0007C eADDRESS P.AAP 3 
48 43 54 41 42 9080 P.AAR: -ASCII \BATCH\ : | 
00000005 00088 P.AAQ: LONG : 
00000009" 008¢ “ADDRESS P.AAR : 
54 49 4D 49 4C SF 4B 43 GF 4C 4 9090 P.AAT: “ASCII \BLOCK_LIMIT\ : 
00000008 itt P.AAS: .LONG F 
00990009" 000A0 “ADDRESS P.AAT ; 
54 4E SS GF 43 SF 52 45 46 46 Proohe DO0A4 B-AAV: ASCII \BUFFER_COUNT\ | 
00900005" Godse "- SADDRESS_P. AAV : | 
a ae 42 i444 P.AAX: ott \BURST\ 3 
00000005 000CO P.AAW: <LONG : 
000 0009" 00C4 “ADDRESS P.AAX : | 
43 49 54 53 49 52 45 54 43 41 52 41 48 4 000¢8 P.AAZ: -ASCII \CHARACTERISTIC\ ; | 
0000000E 000D8 P.AAY: <LONG 14 : | 
60090005" 00DC “ADDRESS P.AAZ : 
53 43 49 54 53 49 52 45 54 43 41 52 41 48 4 QOEO P.ABB: ASCII \CHARACTERISTICS\ ; 
90000008 OOFO P.ABA: .LONG 15 : | 
0090009" OOF4 “ADDRESS P.ABB : 
54 4E 49 4F 50 48 43 45 4 4 sth] P.ABD: ty \CHECKPOINT\ 3 
0000000A 00104 P.ABC: <:LONG 10 : 
00000009" 91 8 “ADDRESS P.ABD ; | 
49 4C 4 10C P.ABF: .ASCII \CLI\ ; 
10F -BLKB 1 | 
9990000 110 P.ABE: LONG 3 : 
00000" 00114 “ADDRESS P.ABF : 
53 45 49 50 4F 4 118 P.ABH: “ASCII \COPIES\ ; 
00 900 1 5 P.ABG: .LONG g : 
* 00124 “ADDRESS P.ABH : 
54 4C 55 41 46 45 44 55 4 o § P.ABJ: tt  ateatathamaadi 3 
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CLIUTL.SRCJQUEMAN.B32; 


iSABLE_SWAPPING\ 


ABV 
NABLE_GENERIC\ 
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14 
ESO 0:08 
P.ACM: 
P.ACP: 
0: 
P.ACR: 
CQ: 
P.ACT: 
P.ACS: 
P.ACV: 


P.ACU: 


P.ACKX: 
P.ACW: 


P.ACZ: 
P.ACY: 
P.ADB: 
P.ADA: 
P.ADD: 


P.ADF: 
P.ADE: 
P.ADH: 
P.ADG: 
P.ADJ: 
P.ADI: 
P.ADL: 

K: 


P.ADN: 
P.ADM: 
P.ADP: 

D0: 
P.ADR: 
P.ADQ: 
P.ADT: 


4:34  YAX-11 Bliss-32 V4.0-76 
8:42  ECLIUTL.SRCJQUEMAN.B32; 

LONG 6 

“ADDRESS P.ACN 

“ASCII \HOLD\ 

“LONG 4 

“ADDRESS P.ACP 

“ASCII \JOB_\ 

“LONG 4 

“ADDRESS P.ACR 

“ASCII \JOB_COUNT\ 

“BLKB 

LONG 


«LON 

eADDRESS P.ACT 
eASCIIT = \JOB_LIMIT\ 
-BLKB 

» LONG 

eADDRESS P.A 
eASCII \KEE 
- LON 
eADDRESS P.A 
eASCIIT = \LENGTH\ 
-BLKB 2 

LONG 6 
eADDRESS P.ACZ 
ty a 


CV 
P\ 
Cx 


LONG 7 

«ADDRESS P.ADB 
eASCII \LOG_FILE\ 
-LON 

eADDRESS P.ADD 
eASCII = \LOWERCASE\ 
et 3 

or P.ADF 
eASCIZ \MANAGER\ 
-BLKB 1 

LONG 7 
-ADDRESS P.ADH 
eASCII = \MERGE\ 
-BLKB 3 

eLONG 5 
«ADDRESS P.ADJ 
uy os" 
eADDRESS P.ADL 

ASCII CU VERSION 
LONG 11 

»ADDRESS P.ADN 

eASCIIT = \NEXT\ 

LONG 4 
eADDRESS P.ADP 
nace \NOTE\ 
ADDRESS P.ADR 
ASCII \NOTIFY\ 
BLKB 2 
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MAN Queue Mana t Commands -Sep-1 116:34 AX-11 Bliss-32 V4.0-74 
yOe~000 a 1b-bep-1984 eT ee me ith thet th Pee CEP 
90000006 P.ADS: .LONG 6 
' -ADDRESS P.ADT 
bE 4F é P.ADV: ASCII \ON\ 
a8 9008 ¢ P.ADU: LONG 
* 0034 “ADDRESS P.ADV 
52 4F 54 52 op mt i B-ADK: ASCH \OPERATOR\ 
0000° ADDRESS P.ADX 
43 49 5S SF 45 4E 20 4F 5 P.ADZ: ASCII \OWNER_UIC\ 
20888808 60 P.ADY: .LONG 
* 00364 “ADDRESS P.ADZ 
50 55 54 45 53 45 47 41 68 P.AEB: ASCII PAGE_SETUP\ 
000000 74 P.AEA: .LONG 10 
0090090" 78 SADDRESS P.AEB 
45 47 41 gc P.AED: ni \PAGES\ | 
SS98885. BEERS PAE AON a ae 
53 52 45 54 45 41 52 41 $8 8C P.AEF: “ASE \PARAMETERS\ 
000000 38 P.AEE: .LONG : 
0000000" 0039¢ “ADDRESS P.AEF 
4c 4C 53 53 41 50 AQ P.AEH: “ASCII \PASSALL\ 
90000007, O03A8 P.AEG: LONG 7 | 
4900990000" 3A¢ “ADDRESS P.AEH 
52 45 4E 0380 P.AEJ: ASCII \PRINTER\ | 
0387 “BLKB 1 
00000007 00388 P.AEI: LONG 
009 0009" 0 BC “ADDRESS P.AEJ | 
59 54 49 4F 4903 0088 0 co p-AEL ASCII \PRIORITY\ 
00990090" 903¢¢ ' -ADDRESS P.AEL | 
52 4F 53 53 43 4F 52 0 06 P.AEN: “ASCII \PROCESSOR\ 
0000009 DC P.AEM: LONG 
0990000" 9 EO “ADDRESS P.AEN 
4E GF 49 54 43 54 GF 0 E4 P.AEP: ASCII YPROTECTION\ 
90000004 FF P.AEO: .LONG 10 
0990000" F4 “ADDRESS P.AEP 
55 45 0 r8 P.AER: ASCII \QUEUE\ | 
00 00005 04 P.AEQ: LONG 3 
0 90099" 4 “ADDRESS P.AER 
45 53 45 4 4 08 P.AET: “ASCII \RELEASE\ 
398885 10 P.AES: “LONG 7 | 
90099" 14 “ADDRESS P.AET 
45 55 45 55 4 418 P.AEV: -ASCII \REQUEUE\ : | 
99 99007 420 P.AEU: <LONG 7 : 
0 90 99° 426 “ADDRESS P.AEV : | 
54 45 53 4 428 P.AEX: <ASCII  \RESET\ : | 
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84 00:14:34 YAN=11 BLisg-32_v4_0-74 


CLIUTL.SRCJQUEMAN.B32; 


8 
«LON 

eADDRESS P.AFF 
eASCII = \SEPARATE\ 


«LON 
eADDRESS P.AFH 
rt} \SETUP\ 


-BLKB ; 

«LONG 

ADDRESS P.AFJ 
eASCII = \SHEET_FEED\ 
-BLKB 2 

-LONG 10 
eADDRESS P.AFL 
eASCII = \SPACE\ 
-BLKB ; 

«LONG 

eADDRESS P.AFN 
eASCII = \START\ 
-~BLKB 3 

~LONG 5 

sADDRESS P.AFP 
eASCII = \STOCK\ 
-BLKB : 

- LONG 

eADDRESS P.AFR 
eASCIT = \TERMINAL\ 
LONG §8 

eADDRESS P.AFT 
eASCII = \TOP_OF_FILE\ 
-BLKB 1 

LONG 11 
eADDRESS P.AFV 
eASCIIT = \TRAILER\ 
-BLKB 1 

LONG 7 

eADDRESS P.AFX 
eASCIIT = \TRUNCATE\ 
- LONG 

eADDRESS P.AFZ 
eASCIIT = \WIDTH\ 


———————————————————E | 


a 
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1exgee=}88e P8ibsizs | ea OeSademkn cose, aoe 
-BLKB | 
+ P. AGA: m i P | 
’ “ADDRESS P.AGB ; 
$0 41 P.AGD: <ASCII  \WRAP\ : | 
00 SAGC: .LONG ; | 
9 4 ‘ADDRESS P.AGD : 
54 4C 55 41 46 45 66 4 P.AGF “ASCII WSDEFAULT\ ; 
’ i PACE: SO ORESS P.AGF ; 
54 4E 45 54 58 Sop ; eb p-AGH “ASCII. \WSEXTENT\ : 
' ; ss P ; 
41 54 4F 55 51 ; ¢ P.AGJ: ‘Beil \USQUOTA\ : 
0000007 O P.AGI: cL : 
00900000" 0 7% “ADDRESS P.AGJ ; 
53 52 55 42 2€ 54 4C 55 46 45 44 i P.AGL: . Ascil DEFAULT.BURST\ : 
90000000 288 P.AGK “TON G6 13 : 
0090000" 28¢ “ADDRESS P.AGL 3 
53 52 55 42 2 54 4C 55 46 43 44 290 P.AGN: <ASCII \DEFAULT.BURST.ALL\ : 
O5A1 -BLKB ’ 
90000011 0544 P.AGM: .LONG Ald ; 
0000000° 005a8 "ADDRESS P.AGN : 
53 52 55 42 2— 54 4C 55 46 4 44 O5aC P.AGP: .ASCII \DEPAULT. BURST. ONE\ ; 
0580 -BLKB 3 : 
9000011 05CO P.AGO: LONG 17 : 
0090 ' O3C4 “ADDRESS P.AGP : 
44 465 45 46 2E 54 4C 55 46 45 44 005C8 P.AGR: ASCII \DEFAULT.FEED\ : 
900 900¢ 0504 P.AGQ ONG 12 ; 
000006 00508 “ADDRESS P.AGR : 
47 41 4C 46 26 54 4C 55 46 45 44 O50¢ P.AGT: ASCII  \DEFAULT.FLAG\ ; 
900 900¢ O5E8 P.AGS: .LONG  # : 
0000000° OE “ADDRESS : 
47 41 4C 466 2E 54 4C 55 46 4 44 O5F0 P.AGV: .ASCII \DEP AULT. FLAG.ALL\ : 
000 o9i6 600 P.AGU: .LONG 16 | : 
0000000" 006 “ADDRESS : 
47 41 4C 46 26 54 4C 55 46 4 44 60 P.AGX: .ASCII \DErAULT. FLAG.ONE\ 
900 901 18 P.AGW: .LONG 16 : 
' 1 “ADDRESS P ; 
49 41 52 54 2E 5S& 4C 55 46 45 4 620 P.AGZ: <ASCII \DEFAULT. . TRAILER\ : 
900 000F 630 P.AGY: .LON 15 : 
0° 6 “ADDRESS P AGZ : 
49 61 52 54 2 S& 4C 55 46 43 44 ; P.AHB: <ASCII \DEFAULT.TRAILER.ALL\ 
4B .BLKB , 
900 001 00640 P.AHA: <LONG 19. : 
0 2 “ADDRESS P ; 
49 41 52 54 2 S& 4C 55 46 4 P.AHD: -ASCII \DEFADLT. TRAILER. ONE\ : 
4E 4F 2€ ree ene oe 3 
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SF 54 


47 


40 


45 
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1 
54 54 GF 42 26 4E 49 47 site upp 


oe 


608 , P.AHE: .LONG 
“ADDRESS, P 
54 46 45 4C 2 4E 49 47 52 41 4D P. AHH: \RARGIN.LEFT\ 
0006: p yaitp “ADDRESS wm 
48 47 469 52 2— 4E 49 47 7099 40 B-AH “AS cil \MARGIN. RIGHT\ 
itt ; ADDR 
50 4F 54 2— 4E 49 47 52 $3 4D scli AM 


a, P.AHL: uty \RARGIN. TOP\ 
000004, 0068 P.ANK: LONG 1) 
580090000" 6 *  TADDRESS P 

C4 P.AHN: yt \RETAIN. ALL\ 
ni 3 
4F 52 52 45 2€ 4E 49 41 54 & 9 9t24 : ro $ ASCII \RETAIN. ERROR\ 


- LONG 
800 0 6° E8 «ADDRESS P.AH 
49 53 2—€ 45 4C 55 44 45 48 3 7 DO6GEC P.AHR: .ASCII yScheDuLe.s1Ze\ 


99 000d 00 Fe P.AHQ: <LONG 13 
090009" 0 “ADDRESS P.AHR 
55 42 2 45 54 41 52 41 50 ° 0704 P.AHT: -ASCII \SEPARATE .BURST\ 


4C 4C 41 2€ GE 49 41 


- LONG F 
“ADDRESS P 


12 -BLK 
60900006 *  TADDRESS,P_AN 
4C 46 2—€ 45 54 41 52 41 50 a3 3 
000000D 
000 0000° 
45 52 2—€ 45 54 41 52 41 50 a3 38 


. 


1 

1C P.AHV: AS cli \SEPARATE. -FLAG\ 
P.AHU: . 

if -ADDRESS P.AHV 

; PAX: “ASCII \SEPARATE .RESET\ 


- 3 “LONG i 

48 ;ADDRESS P 

4¢ P.AHZ: .ASCII \SEPARATE. TRAILER\ 

SC P.AHY: .LONG 16 
ADDRESS P.AHZ 

FUNCTION. CODES: 
“WO 
“BYTE 
“WORD 21, 29 

P.AIB: ASCII \OPTION.RESTART_VALUE\ 


7 
? 
i 
P.AIA: .LONG .* 
-ADDRESS P 
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52 54 2€ 45 54 41 52 41 


0003 0008 0012 000D anh ap 
o}* 13, 18, 11, 3 


P.AID: .ASCII \svs PRINT\ 
BLKB 
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eS ol 
AG S ADDRES aie 
AB P.AIF: .ASCII ‘Sis LOGIN: .LOG\ 


se 53 45 52 ze ce ag1B 99°5,q0018 

45 55 4C 41 3 
sun 

54 4E 49 52 50 24 53 

2E 3A GE 49 47 GF 4C 26 290009 


) 
! 


Page ¢ 


! 


rae 


$3509 


AX-11 Oh legate v4 
SRC JQUEMAN 


CLIUTL. 


t 


G-Seo-19Be 00:24: 


1 
1 


Queue Management Commands 


S 


QUEMAN 


V 


e*e*e e*ere 
~ 
wT 

= ~o 
= ~m 
=) foe) 
- ba 
<= ~ 
u@® zw 
em ey —— 
«mw <«~w 
o> os 
waw a s 
Ne -rO Oo 

wn” w” 

” ” 

we w 

@Ovoae-@Ovoco 
wZQOvYwZaOyZ 
jOQaM 31000 
@Oomiactaoiadn 
e*eeseee se 
wo to 
— _— — — 
<= «& « <« 

. * = . 

aaa ea 
WDVLOSO YOy 
MOMDYWYVH0O 
be Sed Deed Dine Doe Ded eel Ded 
OOoOoooooo 
SOoooecco 
wom BAoo 
oom O00 
oo ooo 
oo ooo 
ooo OoOCcoO 
oowm OOo 
oo ooo 
oo ooo 

~ 

w 
o- 
“ 
wT “u 
~N we 
o 
“ 
~N we 
wT te 

- 

w 

wr 

mn 

~~ 

~w 

co 

wT 


QLOWO ~YZEOGM D3 > LVWO S$ ¥EOGMID3 > LOWY ~XEOGMD 3 > Cow €¥EOS 
qaqdqetede eC CLM ODDMOMDADAAMMDAMMMOC Vv vGGvvVVGvVvvAaoeeooeaeaseasaa 
<qqaq@dqdeedetdeeeeeedeededd eee eee ee ieee 
e*eeeeekssrereteeseteeee#hrfee#r#ke#thfe#st;## sf © # © #8 # #& © # © @# © @&@hUhhUchHhUcMOChCchhC OC HhCrMHhC<—C NM —hC MH hUChOChCUCUhOChUCchOrhCrOrhCrOhCrHhCrOhCiHhC—<(< DW. .SH hm HhlUmh 
Qaaqagagaaaagaadcaadcaaadaaaadgcadadadacaaaaaagaadaaaaadaaaaa 
" 
" o " 
uw 2aue > 
u Vu =o 
> “ a a- 
—- t— ee noe & " 
— &—-§Zz ww “un Zaqw 2 aa 
ec =) eee -= o32 <« “ou " o 
no £O eaz > =—Muw D ed “uw — 
a6 SO OH SEzun —- wo so “uu 2- Huw ” 
aac wo § ee O Nee Ho It i acn Sz # eee [4 
u nnniecan K€ nvvd HuX<E ow uwio cna Oe Feewwh w 
@ Ka2l2s Cewe<ee we wwe SOO Sh eo nO eee eOowi>t 
<= SW MWOVE VEY “OF CwedOrwovseztBswoo t'1 ace wetow ww 
wi A eae pt 5 ES ge ee errr pote + te i te tt ph Ede 
rPev@eu Jee et ID 59T TT 00.0 8 Www SZ Ses HOOW WOOO Oww OO <wewwd 


SAGOHOADAGOHAHBOGAGHGHASHGS: BOOGOHOOHASSHSHoGSGHSHSOSESHAOEHSeGoOooOa&OS 


rw Of 


ie a V4.0-742 
CLIUTL.SRC JQUEMAN.B32; 1 


yy 
vo 
Cc 
€ 
°o 
— 
re 
Cc 
w 
e€ 
a 
o 
@ 
c 
© 
= 
ov 
S 
J 
=] 
oS 


MWD3> LV ¥EOGMND3 > BVWOS XEOGCM D3 > LOWS ~YEOGOWID3>- << Ywwo-w~tEOOMwsDs3 
SOO CWWWWWWWWW i ee  OOOUOUUUOUUUOYUO Tt TIITtIITITIII ITT 
aided ie ie ee ee ee EEE EEE < ddqddcdcacdcaccaca 
eee seeseeeeeeeeeeerteeeeeeeeteeeeeeneeeseeeeeee#ee#t eee} otf @ © @ © ee © 8&8 
aw “ou < oOo 
‘ =P 4 “awi t 0 
zo +aZ2Zeac = u " 
" “u s6e <qOww w iii ie he 
uw Keren 8 ke Od “ hmmow 
> " NNNnRAVOORs oe enacaiun 
" “ “ a u w Seaeawddddetaet fo eer NOs Kw 
:a Ww uaz < a 4 >> a JES SC Ke OO. IEYOu & 
nvr =< “nao = uo ww im —nh OOMOucuwe— — OWwr-Owe tts 
come wl t>O-; “nu “ 6 w w —u ——un tte eeeee st 1 O83 — awww 
0 OFw KVR OkK wa eee < t*} 22k ee ee eee ee 6666 6 eee 
—- —§ MUwWow wMYUNKvdIeaeszrtacn wnt Suwe wre ss st i SZ SSS ZO AK 
_ 202 2 <4— oC wwid wr 4 oUC 0 ewe 60 UT her ODD ZD DDD I3DF3FD OD ttt OC ee 
— SCwwwtwZoOvr swidwre- <tc Owevecve Et tet es <« YVuIUOe« ewes 
— 6 ZOOM" O0W JSOVY MY Owe COTO SMO COWS eeuvwuwswuwwwe & CEeerrFT000. 
O2ZO0 34 4440 ECE CF DWwWwwww www TO WO SK CYNWWWWas as EE 
we WR RRR RRB EEREER REECE REEMA RRR RUE REEEREEE So FEEL eewmMwnm 
ts#eeoeeeeee 8 t#eseeesee eee ee 8 6 eeeeeeeeeeeeee 6 ‘6 4 eeeeeeeese 
eonnanoonoooooooooooooooooooooacocoooooaaace a Soaoaoaoaaaaeakam 


QUEMAN 
V 


dD 15 
a \o-Sep-1984 Q:14:34 — YAXo11 Bliss-32_v4.0=74 


ep-1984 8:42 CLIUTL.SRCJQUEMAN.B32; 


") SEPARATE TRAILER= P.AHY 
TRN CLISGET_VALUE, CLISPRESENT 
*EXTRN GLEAN FACILITY 
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“CHAR_NUMB 
“EXTRN PARSE ECHR A PARSE STRING. 255 
“EXTRN PARSE “NONZERO_NU 


-EXTRN PARSE-COMMA 

-EXTRN PARSE-IF TROE_FALSE 

“EXTRN PARSE-ENTRY, PARSE _BASE_PRIORITY 
.EXTRN PARSE-LOWER_ UPPER 

.EXTRN PARSE-CHARACTERISTIC 

-EXTRN PARSE-CPUTIME, PARSE_IF_TRUE 
-EXTRN PARSE-IF_FALSE, opARse ORM 
-EXTRN PARSE-GERERIC, PARSE JOB_LIMIT 
-EXTRN PARSE-FILENAME, PARSE_ON™ 
SEXTRN PARSE OWNER PARSE_PROTECTION 
“EXTRN PARSE WORKIN SET ~ 

; PARSE AFTER, PARSE COPIES. 
SEXTRN PARSE-LOG FILE, PARSE_NAME 
«EXTRN PARSE_NAME_AND_L ICE 

-EXTRN PARSE-STRING PA RSE_PARAMETERS 
-EXTRN PARSE-PRINT TER PARSE PR 1ORITY 
-EXTRN SHOWQUEUE, PARSE BUFFER_C 

EXTRN PARSE EX Ve enb a UART Ty 


-EXTRN PARSE-ALIGN -PARSE_B 
SEXTRN SYSSPORGUS. Be sSeND NRCG 


ARD 
SEXTRN PARSE FOR RWARD, PARSE. SEARCH. STRING 


OFFC 00000 QUEMAN: .WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
57 F832 «CF 9E 00002 MOVAB DPI, R? 
5E FSDC—OséCEE 4 90007 MOVAB -2596(SP), SP 
0000" CF 01 pO 0000C MOVL #1, EXIT -STATUS 
6D 0000v CF i 0011 MOVAB HAND DLER P) 
F8 AD O20E0000 8F DO 00016 MOVL #344 9$6. PUALUE _DESC 
FC AD D4 OOOIE CLRL VAL +4 
FO AD 010E0004 8F DO 00021 MOVL  #1769%724 VERB DESC 
F4 6E 9E 00029 MOVAB VERB, VERB_DESC?4 
FO AD i 00 PUSHAB VERB. DESC 
F4 «OA? OOF PUSHAB D_$VERB 
000000006 99 02 FB 000 CALLS #2, CLISGET_VALUE 
gf DO 0003A MOVL B RO 
49535341 D 99 D CMPL RO, #1230197569 
04 te 044 BNEG = 
GE D 0046 CLRL VERB 
¢ 11 04 BRB 10$ 
53414544 8F 50 D1 O004A 1$ CMPL RO, #1396786500 
5 12 000 BNEQ 2$ 
6E 1 p 0 MOVL #1, VERB 
49464544 BF 54 1 00058 2$ OReL ies #1229342020 
3s * O5F BNEQ 3$ 
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yOu-000 eet Vat eT He CUT Mee tg PT EE | eg 
6E 0 1 MOVL #2, VERB ; 
: 00 O04 BRB 136 : | 
45404544 BF D} 066 3$ cMPL R , #1162626372 + 0445. 
«RG pat 
54494649 BF ; b| 3 4$ CHPL R0. #1414090313 + 0446) 
6E 04 8 0970 MOVL #4, VERB : 
4A 11 9080 BRB Fe : 
20544553 8F 50 D1 000 é 5$ CMPL RO, #542393683 > 0447, 
5 if} 008 BNEQ 6$ : 
. 2 a pact 
574F4853 BF 0 01 0090 6$ CMPL RO, #1464813651 + 0448 
05 42 9009 BNEG 7S ; | 
6E 06 00 90099 MOVL ug VERB : 
ec 11 0009¢ BRB 12$ : 
52415453 BF 0 D1 O09 7$ CMPL RO, #1380013139 + 0449) 
05 12 000A BNEQ 8$ : 
6E 07 00 00047 MOVL #7, VERB : 
20 11 OOOAA BRB 12$ : 
504F5453 BF 0 D1 OO0AC 8$ CMPL RO, #1347376211 + 0450 
05 12 0008 BNEQ 9$ ; 
6E 08 DO 00085 MOVL #8, VERB ; 
12 11 00088 BRB 12$ F 
43465953 8F 50 D1 OOOBA 9$ CMPL RO, #1129208147 > 0451. 
05 12 000C1 BNEQ 118 : | 
6E 09 DO 000C3 MOVL #9, VERB : 
04 11 000C6 10$: BRB 12$ : 
50 01 00 000C8 11$:  MOVL #1, RO + 0452 
04 000CB RET : 
5B 0414 CE 9E OOOCC 12$:  MOVAB ITEM_BUFFER, Q_ICURSOR + 0460 
5A AE 9E 00001 MOVAB DATATBUFFER. Q~DCURSOR ; 
59 00000000* 8F D0 000D5 MOVL B< CCB AANS FACILITYS1E>!4486> 14>, - : 
58 F8 AD 9E 000DC MOVAB VALUE_DESC, Q_VALUE_DESC F 
5 oF 20 O00E0 MOVL VERB, -R > 0463 
52 0750 ¢743 3C OO0E MOVZWL FUNCT ON_CODESCR3], FUNC : 
09 00 53 CF 000E9 CASEL R3, #0, #9 > 0466 | 
049 003¢ 0014 QOOOED 13$: .WORD 14$-13$,- : 
0784 038D O1AF QO0F5 15$-13$.- : 
OAF6 OAS2 O0FD 16$-13$.- ; 
19$-13$.- : 
4$-13$.- : | 
5$-13$.- : 
1$-13$.- : 
8-1 $;- : | 
$-15$,- Py 
42$-13$ : 
1A DD 00101 14$:  PUSHL #26 : 0472. 
7 0D 001 5 PUSHL R : | 
00006 cr 2 FB 001 ae PARSE_QUEUE ; | 
E 6 ar 3A A MOVZBL ‘ 34. (SP) > 0473 | 
° } 
00006 CF 0¢ FB iN CALLS #2, PARSE_QUEUE : 
0204 C7? OF 00116 PUSHAB D_MERGE + 0474 | 
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MAN Queue Management Commands ae MLS Ele SL LSPRESENT 
v0e-000 ; 00 g 4} 134 BLBC R 6, FUNC 
000000006 94 0 £9 00121 Rov #26, 
$2 te BO Biss BRB 134, =(SP) 
9A 90109 158: ROvzaL ai54, 
¢  «=6C RR arin 
T 
esto | OF 00136 168: PUSHAB WY. CLSPRESENT 
00C4 o FB Fe LBC ph Tm I INVCHANAM, Q_MESSAGE 
000000006 00 0 E 12} OVL any ™ 
$3 000000006 f BO 00144 Push #1 pete ee 
s FB OOIGE ROVE AOGEMANS. THVCHANON, Q_MESSAGE 
00G CF DO 00154 HL #1 
oc 0 ¢ é bd 
2 FB 0016 : RW 4 
00006 CF OMAR bo Soles dae: Rov FOUEMANS INVFORNAM, @_MESSAGE 
22 F DO 00168 PUSHL #54 
39 000000006 6 DD 00172 PUSHL R? T_NAME 
aa ROVL”FOUERANS_TNVFOMNON, MESSAGE 
00006 CF F DO 00178 PUSHL #5 
59 000000006 BF 0 00182 PUSHAB D2 NUMBER PTE, 
oc AZ OF 00184 SoS Bec CQUERARS Fac ILITY@16> 
02 FB 00 C MOVL a< SSAGE 7 
0000G CF 0000000" 8F pO 0018 Q ME 
rh 193 PUSHAB > DESCRIPTION 
29 OF bo198 Cus, 92 PARSE_STRING_ 255 
re 02 FB 9013 PUSHL #49 eel 
wre t7 OF OOIAD CALLS #2. PARSE_NONZERO_NUMBER 
0280 : 
FB OO1A4 PUSHL # 
a, (we RN Bt Paros 
066¢ FB OOTAF 05{ iy 
PUSHL 
oe PHBE Ble Phare, 
0680 1BA "i 
2 FB 00 PUSHL HT 
agen ap Baie CALLS, Ry PARSE NUMBER 
0694 1¢5 - 
FB PUSHL 
rs a 
06A8 1D 16, -(SP) 
2 FB MOVZBL @# * =(SP) 
0000G CF rt 9A 8 MOVZBL #11 
E 13 BE 3 a1 PUSHAB Pee SETUP wn List 
7 036d CY OF CALLS 3, PARSE, 
c0006 Gg A 
: BF OOTEA CALLS” #3. PARSE _COMMA_LIST 
0484 65 FB OO1EE CALL . 
00006 CF 


00006 


00006 


00006 


00006 


00006 


000000006 


000000006 


00006 


00006 


00006 


00006 


00006 


00006 
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a 

Ht 

D_SHEET_FEED 

a3 PARSE_IF_TRUE_FALSE 


D_STOCK 
H2 PARSE _OBJECT_NAME 


D_TRUNCATE 
ae PARSE _IF_TRUE_FALSE 


0 WIDTH 
#2, PARSE 
#65, -(SPY 
#64. (SP) 
os" PARSE IF _TRUE_FALSE 


D_ CHARACTERISTIC 
#T, CLISPRESENT 


NONZERO_NUMBER 


#15, FUNC 
#OUEMANS _INVCHANAM, Q_MESSAGE 


D_FORM 
aT, CLISPRESENT 

#16, FUNC 

#QUEMANS_INVFORNAM, Q_MESSAGE 


R?7 
8 PARSE _OBJECT_NAME 
ih, -(SP) 

2, PARSE QUEUE 


& 
#<<<QUEMARS_FACILITY@16>+4904>+4>, = 


Q_MES 
Q“DCURSOR, SAVED_DCURSOR 
#7, PARSE_ENTRY 
23$ 
#1?, FUNC 
#134, -(SP) 
R7 


#2, PARSE Q 


UEUE 
#<<<QUEMANS _FACILITY@16>+4904>+4>, = 


DBASE PRIORITY 
aI. PARSE _BASE_PRIORITY 


0_BATCH 
#3, PARSE_IF_TRUE_FALSE 
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QUEMAN Queue Management Commands 16 °- 0-1 984 93; TE 8:42 cLivi. st RCIOUERAN: or ; 0568 
vor“oto 7E F 9a o02c2 mOVZBL # : =($P) em 
MOV de ; 
7e ; } eh é MOVZBL #85, -(SP) } 
F 9A OOSCA : 
tf ‘ F 9A O02C at terts p D.SLOCK LIMIT : 
we Ss CALLS PARSE LOWER_UPPER : 0569. 
00006 CF 3 £8 00eb PUSHAB CHARACTERISTICS : 
donc C7 9F O0e0 CALLS” #7, PARSE. CHARACTERISTICS  os71, 
0000G CF 14 DD 005E4 PUSHL + : 
13 DD OOZE at ; | 
0120 U7 7 98 EB CALLS” #3, PARSE_CPUTIME ; 0573 | 
00006 CF 92 CB Bhert sushe 428 | 
a 
cp 134 OF MF ORES CALLS” #3, PARSE. CPUTIME : 0575 
00006 PUSHL ; | 
20 DD OOFE RST_ALL ; | 
F sides 63 Pe $0 be CALLS” #2 PARSE id TROE ; 0577) 
eo0es 1 DD 00309 PUSHL # To Boxed 
one 2:4: 0579 
—— - 3 DD 00314 PUSHL , ectet 
0574 C 4 00316 sry b DEFAULT. TF FALSE > 0581. 
one gg BEE | Bik Hite tes 
7E 75 «BF «9A 00 DEFAULT_FEED : | 
ae 04 ec gS = 
00006 CF 2h pb 00380 PUSHAB > DEFAULT _FLAG, ALL : | 
_ oe 63 4 003 i CALLS” AZ, PARSELIF_ TRUE ; 0585 
00006 C 25 DD 00338 PUSHL # AG ONE : 
0604 C7 OF 0038p CALLS, #2. PARSEZIF. TRUE 0587, 
ae 28 DD 00346 PUSHAB DEFAULT_FLAG é | 
0504 C7 9F 00548 CALLS” #2, PARSEZIF_ FALSE : 0589 | 
28 DD 00351 PUSH RAILER_ALL : | 
Regie =| Same Efren eng osm | 
2¢ DD 0035¢ PUSHL RAILER_ONE ‘ | 
i oF $3 CALLS” Hy PARSE = TPeTRUE : 0593. 
D 0036 PUSHL # TRAILER : | 
G2 9r 0x6? USHA BETA TRAILER. Pr 
D DD 0037¢ Push #48 ; | 
a a as ae 
D : | 
PUSHAB D_DEFAULT : | 
i oF 0 i CALLS a. PARSE, {F -FALSE : 0597 | 
F 9A 00381 VZBL #146, =(SP) : | 
F 3h D_DISABLE_ SWAPPING | 
tT OF a3 PARSE “IF _TRUE_FALSE : 599 | 
i is PA Rd 
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ee MOVZBL #68, 
4 8F 9A ERIC 
e oths ae re CALLS” S ElMBLE Gen " TRUE FALSE 
een CALLS #7, PARSE_FORM 
00006 CF 1 fe PUSHAB D_GEN 
ite k me: CALLS #T, PARSE GENERIC 
note, c, 0204 ot OO eee oe PARSE yO8_LIMIT 
00006 CF 1 of movZeL #94, 
é 5 OBE OA ROVZBL #93) —( “{3p) 
0280 Sf PE Be CALLS. #30, PARSE. FILENAME 
00006 CF + 58 PUSHAB D_ON 
sue OF BP BD rithae SouehsoTe™ 
ore Fosse FF 00 CALLS” #7. PARSE. OWNER 
ee ERR moval BR (8h 
7 , Oe ODA PUSHAS D_PROCESSOR 
mi 2:4: CALLS. #3. PARSE. FILENAME 
00006 CF es fe PUSHAB D PROTECTION 
wee he CALLS #T. PARSE PROTECTION 
00006 cF ac | ot EB 88 MOVZBL Wid, <(SP) 
7E  068t C7 9 00 cats, a PARSE iF _TRUE 
0000G CF BF 9A 00 MOVZBL a 
Fd 004 ois 5 feta te TRUE 
es0es CF E Bf BA 004 movie. #1 fila m: 
0654 C7 9F 004 chs” 42, PARSE IF FALSE 
00006 CF 02 FB 004 CALLS 24 
i: HH BF aA 4 MOVZBL #86 ‘ =(3P) 126 
r, 0668 YF ge CALLS, #3s PARSE TF yi TRUE_FALSE 
00006 CF G3 FB 004 CALLS Ht. 
i: t3 af 3A 04 MOVZBL 3 a a 
0700 €F 9F 004 CALLS b seek PA ARSE a UTRUE _FALSE 
00006 CF 3 FB 004 CALLS 834 
7e 2 © & Re ROVIBL #76, =<3P) 
7 aC BF A 006 PUSHAB D beats? 
one it Oe ie CALLS #3, PARSE vif LTRUE _FALSE 
00006 . 1 y fe 04 movie. 8 if i. = mt 
F 9A 004 RESET 
7e wt 7 9F 004 PUSHAB p SEPARATE RESET cal 
ares) a ee 
F 9A 004 TRAILER 
To ERE ieee a Monee 
00006 6 $A 94 004 RovzeL wg. -($P) 
7E ae Mo MOVZBL #74. -(SP) 
SA BF 9A 004 RATE 
Fonte th BF O04 PUSKAS D.SEPA 
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936 PARSE _IF FALSE 


42 A PARSE IF __TRUE 
dg, 


#14 


(3p) 


p TERMINAL 


Lye, 
4E es nal 
, FUNC 


p RESTART_VALUE 
PARSE_STRING_255 


wise, 


) “ENTRY 


-(SP) 


a3. PARSE EVE 
a<< <<GUERARS FACILITY@16>+4904>+4>, 


-MESSAG 


a, PARSE_ENTRY 
RO. 27$ 


8 etite: “seses FILE_DESC 


LOG FILE 


aT Ties AFTER 
#34 * 
a3 


: 3° 
ae 


D, CHECKP 
PARSE. mt -FALSE 


it 


C+% 


URST 

PARSE_IF TRUE _FALSE 
RACTERI 
PARSE CHARACTERISTICS 


ot ARSE _F ILENAME 


PIES 
PARSE _COPIES 


PUTIM 
PAR 


Ss 


-CPUTIME 


F_TRUE_FALSE 


Se Se Se Se Se Se Se Ge Se Se Se Se Ge Se Se Se Se Fe Fe Se Se Fe Ge Ge Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Be Se Se Be Se Se Se Se Se Se Be Fe Se Se Se Gee Se 


K 15 
MAN Queue Management Commands 16-Sep-1 16:34 AX-11 Bliss-32 V4.0-74 Pa 
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00006 CF 3 FB 00561 CALLS #3, PARSE_IF_TRUE_FALSE : 
6 0D 66 PUSHL @ + 0684. 
3 4 PUSHL i : 

0168 f F 0056A PUSHAB D_FLAG : 
Ov00G CF 3 FB CALLS #3, PARSE_IF_TRUE_FALSE : 
O1F4 OF PUSHAB + 0685. 
00006 CF 1 £8 CALLS #7, PARSE_FORM : 
E 7 F 9A 0057 MOVZBL #114, =(SP) + 0687 | 

7E 7 F OA MOVZBL #113, =(SP) : 

0224 C7? 9F 005 PUSHAB D_HEADER : 
00006 CF 3 FB 005 CALLS a3 PARSE_IF_TRUE_FALSE ; | 
E 4 F 9A ; ViBL # ¢. =(SPJ + 0689 

7E 4 F OA 1 MOVZBL #71. =(SP) : 

0230 C7 9F 00595 PUSHAB D_HOLD Sr’ 

00006 cr O53 FB 00599 CALLS a3 PARSE_IF_TRUE_FALSE : 

E 468 BF 9A 005 MOVZBL #75, =(SPT > 0691 | 
023¢ C7? 9F 005A PUSHAB D_J : 

0000G CF 2 FB 005 CALLS a PARSE_COPIES 3 
7E SF BF «9A 00588 MOVZBL #95, =(SPY + 0693 
7E 60 8F 9A O05AF MOVZBL #96, =(SP) : 

0270 c7 9F 00583 PUSHAB D_KEEP : 
00006 CF 3 FB 00587 CALLS #3, PARSE_IF_TRUE_FALSE F 
88 06 AE 9E OBC MOVAB LOG FILE Best, @_VALUE_DESC + 0694 
02A0  C? 9F 005¢ PUSHAB D_L + 0695 
00006 CF 1 FB 005¢4 CALLS #1, PARSE LOG FILE : 
54 0 pO 005¢9 MOVL » NO_LOG_FICE : 
38 F AD 9E Bo ace VAB VALUE DESC Q_VALUE_DESC : 06 
E 6 F 9A 00500 MOVZBL #103, ~=(SP) : 0698 
7E 66 BF 9A 00504 MOVZBL #102. -(SP) ; 
0284 C7? 9F 00508 PUSHAB D_LOWERCASE : 

00006 CF 03 FB 9090¢ CALLS #3, PARSE_IF_TRUE_FALSE ; 

0260 C7? 9F 005€1 PUSHAB : 0699 

00006 CF g1 FB 05€5 CALLS #1, PARSE_NAME ; 

15 4 £8 OOSEA . BLBS $NO._LOG FICE, 28$ : 0700 | 
000000006 8F DD 005E PUSHL #Q0EMARS_INVLOGF IL $0704 
O7A4 C7? OF OO5F PUSHAB P.AI : 
0¢ AE 9F 3 PUSHAB LOG FILE DESC : 
F8 AD OF OOSFA PUSHAB VALOE_DESC ; 

00006 CF 04 FB O05FD CALLS #4, PARSE NAME_AND_LOG_FILE ; 

E 68 8F 9A 00602 28%:  MmovzZBL #167, -(SP) + 0706 
7E 6A BE ga 0606 MOVZBL #106, =(SP) : 
030C C7 9F OO60A PUSHAB D_NOTE ; 

00006 CF 3 FB 006 CALLS #3, PARSE_STRING ; 
7E 6D «BF aA 61 MOVZBL #169, -(SP) : 0708 | 
7E 6C 8F 9A 0061 MOVZBL #108; =-(SP) ; 

O31C C7 OF 0061B PUS D_NOTIFY ; 
00006 CF 3 FB O061F CALLS #3, PARSE_IF_TRUE_FALSE ; 
E 6F BF 9A 00624 MOVZBL #111, -(SP) : 0710 | 
7E of F ga 628 MOVZBL #110. =(SP) ; 
03 7 9F 006 PUSHAB D_OPERATOR ; 
00006 CF 3 FB 006 CALLS a3 PARSE STRING 3 | 
a C BF 9A 006 MOVZBL # ¢. =(SPY : 0713 | 
7E B 8F 9A 00639 MOVZBL #91. -(SP) ; | 
F OD 006 PUSHL #47 ; 
5 BD 63F PUSHL ; 
0370 f F 00641 PUSHAB D_PAGES ; 
00006 CF 5 FB 00645 CALLS #5, PARSE_LOWER_UPPER : 
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0384 (7 OF PUSHAB D_PARAMETERS 
00006 CF 1 £B CALLS #1, PARSE PARAMETERS 
: 1 BF OA MOVZBL #169. -(SP) 
0 8F 9A MOVZBL #128, =(SP) 
0394 : F PUSHAB D_PASSAL 
00006 CF FB CALLS #3, PARSE_IF_TRUE_FALSE 
coos cr OM OH BSS SPREE panren 
0384 , OF PUSHAB D_PRIORITY 
00006 CF 1 £B CALLS #1, PARSE _PRIORITY 
E 48 BF 9A MOVZBL #72, <(SPY 
O3FC a4 OF PUSHAB D_RELEASE 
00006 CF 2 fB CALLS a PARSE_IF_TRUE 
1A pp PUSHL #26 
040 C7 OF PUSHAB D_REQUEUE 
00006 CF 2 £8 CALLS "2 PARSE_QUEUE 
E F 9A MOVZBL # $9. -(SP) 
7E F OA MOVZBL #138. =(SP) 
042C (C7 OF PUSHAB D_RESTART 
00006 CF 3 FB CALLS #3, PARSE_IF_TRUE_FALSE 
9 dD PUSHL #41 
: BD PUSHL #40 
0484 ¢ F PUSHAB D_SETUP 
00006 CF 3 FB CALLS #3, PARSE_COMMA_LIST 
1D DD PUSHL #29 
I¢ bb PUSHL 
04A8 \ F PUSHAB D_SPACE 
00006 CF 3 FBO CALLS #3, PARSE_IF_TRUE_FALSE 
gp DD PUSHL #4 
: pp SHL #4 
O4FC 46C?—sOOF PUSHAB b TRAILER 
00006 CF 03 FB 298: CALLS #3, PARSE_IF_TRUE_FALSE 
0441 31 BRW 34§ 
52 04 pO 06C9 30$:  MOVL #4, FUNC 
64 A? OF b06¢C PUSHAB D_BASE_ PRIORITY 
00006 CF 01 FB O06CF CALLS #1, PARSE _BASE_PRIORITY 
E 53 BF 9A 00604 MOVZBL 3s, =(SPJ 
7E 32 F 9A 00608 MOVZBL * =(SP) 
7E 5 F OA enc MOVZBL #85, =(SP) 
7E 54 «BF OOM (006E MOVZBL #84. =(SP) 
0088 7 9F O06E4 PUSHAB D BLOCK LIMIT 
00006 CF 5 FB 00668 CALLS #5, PARSE LOWER_UPPER 
Oopc C7? OF SED PUSHAB D_CHARACTERISTICS 
00006 CF 61 FB OO06F CALLS #1, PARSE_CHARACTERISTICS 
4 dD 6F6 PUSHL # 
13 D 006F PUSHL # 
0120 C7? 9F OO06FA PUSHAB D_CPUDEFAULT 
00006 CF 03 FB O6F : CALLS #3, PARSE_CPUTIME 
16 DD PUSHL 
15 DD 007 PUSHL 
0134 F 007 PUSHAB D_CPUMAXIMUM 
00006 CF FB r CALLS } PARSE_CPUTIME 
0590 C7? 9F 0071 PUSHAB D_DEFAULT_BURST_ALL 
00006 CF 92 FB 0071 CALLS #2, PARSEWIF_TROE 
D 00718 PUSHL @# 
OSAC C7 9F 00710 PUSHAB D_DEFAULT_BURST_ONE 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Se See Se Se Se Se Se Se Se Be Se Fe Se Se Se Se Se Be Se 
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3be $o:08:23 Pek iure’SRedaueman o32¢ 


90006 CF FB ? 1 CALLS , PARSE_IF_TRUE 
nooos ce 0874 2 ME RUT PUSH B Dera ounsr 
h ON EB | Bak aie cist 

05¢ f 007 PUSHAB D_DEFAULT_FEED 
0000G CF bp fF sats Af PARSE_IF _TRUE_FALSE 
OSEC F 007 PUSHAB D_DEFAULT_FLAG ALL 
00006 CF i 90748 CALLS a, p En1F TRUE 
ie 
0604 fF GF PUSHAB D_DEFAULT_FLAG_ONE 
0000G CF FB D0? ; CALLS AP E-1F TRUE 
05D4 gp DO75A PUSHAB D_DEFAULT_FLAG 
0000G CF 4 768 pi are ARSE_IF FALSE 
0638 gp 76 PUSHAB D_DEFAULT_TRAILER_ALL 
0000G CF 4 th e4 pty ot E_IF TRUE 
0654 bP 7 PUSHAB D_DEFAULT_TRAILER_ONE 
00006 CF FB 443 CALLS 2, PARSE-IF _TRUE 
061C op 78 S D_DEFAULT_TRAILER 
FB 7F eats We PARSE _IF FALSE 


D PUSHL #34 
0154 F SHAB D_DEFAULT 
00006 CF FB CALLS #&%, PARSE_IF_FALSE 
E 91 9A MOVZBL #145, -(SP) 
7E 92 9A MOVZBL #146, <(SP 
019 OF S D_DISABLE_SWAPPING 
00006 cr ~*~ fe CALLS #3 PARSE “IF TRUE _FALSE 


as . =(SP) 
01A8 D_ENABLE GENERIC 


FSSIOMSOSR EE SSSOME ESE 
3 
a 
& 
oo 


SII NINN I I NSIS IS 


a 
o 
wn" 
WOM DOM WOM WOM OMOM OM OM DDO MOM WWOMO MVNO VON NVOMNNVUOMNNVONNVONMMVONBWBWOMNO 


POISED I NII BS FE IIS OPINION NID NONI NVI NEWT POP 
so 
_—) 


OF PUS ENE 
00006 CF a) CALLS #3, PARSE_IF_TRUE_FALSE 
O1F4 OF PUSHAB 
00006 CF FB CALLS #1, PARSE_FORM 
023¢ OF PUSHAB D_J 
00006 CF FB CALLS #1, PARSE_JOB_LIMIT 
034¢ OF PUSHAB 0 OWNER UTC 
00006 CF FB CALLS #7, PARSE OWNER 
030 OF PUSHAB D_ PROTECTY 
00006 CF FB CALLS 4#T, PARSE PROTECTION 
E 8C 9A 00709 mMOV2BL #140, -(SP) 
068C 9F Dp SHAB D_RETAIN ALL 
00006 CF FB E CALLS a PARSE_IF_TRUE 
E 8D 9A 6 mOV7BL #141, - 
06D0 9F OO7EA PUSHAB D_RETAIN ERROR 
00006 CF FB OO7E CALLS a PARSE_IF_TRUE 
E i pA 7F MOVZ2BL #142, -(SP) 
04 F OO7F PUSHAB D_RETAIN 
00006 CF FB OO7F CALLS a PARSE_IF_FALSE 
£ 57 9a 008 MOVZ2BL #87, -(SPY 


5 
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7E 56 BF OA movz -(SP) 
Pvt | t 3 PUS pestwepute 12 
F FB CALLS a3 PARSE_TF_TRUE_FALSE 
6A BF OA MOVZBL # 4. =( SPY 
49 BF 9A 0081 MOVZBL #73, (SP) 
0700 f F 0081 PUS D_SEPARATE BURST 
F FB 0081 CALLS a PARSE TF _TRUE_FALSE 
é 40 BF OA MOVZBL #77, =(SPY 
4 F OA MOVZBL #76, (SP) 
071 F A PUSHAB 0D_SEPARATE_FLAG 
F FB CALLS #3, PARSE TF_TRUE_FALSE 
E 1 &8F ga MOV2BL #B1, -(SP 
7E fF OA MOVZBL #80. (SP) 
07 7? OF PUSHAB D_SEPARATE_RESET 
a 3 FB F CALLS . a PARSE _COMMA_LIST 
E A 8F OA 4 MOV ZBL . (SPY 
7E 9 8F aA 5 MOVZBL #89. =(SP) 
0748 C7? OF PUSHAB 0 _SEPARATE_TRAILER 
F 3 FB CALLS #3, PARSE_TF_TRUE_FALSE 
E A BF OA movze. #96, -(SPY 
7E 1 BF 9A 9 MOVZBL #81. (SP) 
7E 40 «BF OA D MOVZBL #77. =(SP) 
7E 4A BF OA 1 MOVZBL #74. (SP) 
0474 (C? OF 5 PUSHAB D_SEPARATE 
CF e 5 4 9 CALLS #5, PARSE_IF_FALSE 
CF 00 Fe 31$: CALLS #9 SHOWQUEUE 
0368 3 76 8 478 
02¢4 F 00879 32$: § PUSHAB D MANAGER 
00 1 Ff 70 CALLS fT, Si PRESENT 
4 9 E 84 BLBC OséR 5 
3 19 D 87 MOVL #25, FUNC 
00000000" &8F D 8A MOVL B<<CQUEMANS_FACILITY@16>+4904>+4>, « 
7E 87 8F 9a 00891 MOVZBL aTss° -(SP) 
7 DD 00895 PUSHL 7 
CF 0¢ FB 0897 CALLS #2, PARSE_STRING_255 
009c 6C? «OF 0089 PUSHAB 0 BUFFER COUNT 
CF 01 FB 008A CALLS #1, PARSE BUFFER_COUNT 
01D0 C7 9F OOBA PUSHAB 0D_EXTEND QUANTITY 
F 1 FB OO8A CALLS #7, PARSE_EXTEND_QUANTITY 
E 68 8F 9A mov2BL #164, -(SP) 
O2F4 c? OF PUSHAB D_NEW VERSION 
CF ; FB CALLS #2, PARSE_IF_TRUE 
0328 9F 00888 PUSHAB 
CF 1 Fe SBF CALLS a PARSE_ON 
0348 : C4 BRW 4 $ 
7E 86 : aA c? 33$: MOVZBL #134, -(SP) 
F 2 F ¢ CALLS #2, PARSE_QUEUE 
gf 00000000 &F DO D MOVL B<<<QUEMARS FACILITY@16>#49046>+4>, - 
3c =O A?s«9F_« 008D9 PUSHAB DAL 
CF 01 FB 008D CALLS 4#T, PARSE_ALIGN 
4C A? OF OOBE PUSHAB D_BACKWAR 
CF “ ot Fe £4 CALLS #T, PARSE BACKWARD 


£9 PUSHAB D_BASE_PRIORITY 
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00006 CF CALLS #1, PARSE_BASE_PRIORITY 


00006 


0000G CF 
0000G CF 


# 
PUSHAB D_CPUDEFAULT 


00006 CF CALLS a3 PARSE _CPUTIME 


e 
PUSHAB D_CPUMAXIMUM 
#3, PARSE_CPUTIME 


# 
PUSHAB 0_DEFAULT_BURST ALL 
CALLS PARSE _IF _TROE 


PUSHAB D_DEFAULT_BURST_ONE 
CALLS #2, PARSE_IF_TROE 


F PUSHAB 0_DEFAULT_BURST 
3 PARSE~IF_FALSE 
r MOVZBL wits. - 
§ 


0000G CF 


0000G CF 


0000G CF 


OQOoQooooooooooooooooooooooooo 


00006 


0000G CF 
0000G CF 
0000G CF 
0000G CF 


0000G CF 
0870 


00006 CF 
0872 


0000G CF 
0874 


#34 
PUSHAB D_DEFAULT 
ALLS #&%, PARSE_IF_FALSE 
9BA MOVZBL #145, -(SP) 


FPO VO OVCO* OO * OO * IO *O OI * TOO "OO" ">YSSPOI OV "OVI "OO "OO "COON "WO "yy yr rAI "OW 


OQOQOQoooooooooooooooooooooooooo 


WMNOOOS NOS MOIS NOS MNOS NOS NOS MNOOOOIT NOT NOVO NOVTIT TOTTI "ONOOOOO"OO™ 


Pe Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Be Be Be Se Se Be Be Be Bete Se Se Ge Ge Ge Se Se Ge Be Be Ge Fe Se Se Fe Ge Ge Se Ge Ge Se Be Be Se 


PETIA OPIN NINO NID NI NIA NII NIE AISI FP NIIP NP NIOW NUON SS NIU oo P00 — 


~ 
m 
~“ 
io 
DWOONNINOONVOONVNOO VOOM NOO NOONE BWBOOMVOAINVOONIOON $$ ON | DN OCONMWWOMOxoocroo 


00006 cr 
0876 
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es coe ICREcTORE WOSERE YASH SUasadbal B54 & 
7E 8F 9A 0098 MOVZBL #146, =(SP) Race 
or9b ft He Goes FASMAB BOOTEARLET auarpunc, ; 

re cf 45 BF 9A 009CB MOVZBL #69, -(SPT ~ ; 0878 
7 1B CD OF Bb abR SOSHAB D EMABLE GENERIC : 

00006 CF ” O§ fe $07 CALLS #3 PARSE IF_TRUE FALSE F oad 
O1F4 F ; 

ee A: DE EI Ray oat 

00006 CF 64 *B 009E9 LLS a7 ePARSE FORWARD Foon 
nas 6% 2b Boor CALS. #7, PARSE_GENERIC : 

ee ae + §P Soot SHAB 0 JOB_LIMTT + 0882 
_ at Pe of ar #T, PARSE _JOB_LIMIT 3 

— - se BF OR OOAOD mOVeBL #94, <¢SPT 08s 
7E 5D 0 BF. OOM O0A04 MOVZBL #93, =(SP) 
0290 C7 9F OOA08 PUSHAB D_LIBRARY 

0000G CF g3 FB AN CALLS BF gg ARSE Sf ILENAME : 9886 
7E 69 F 9A QOA11 MOVZBL # ° : 
0300 C7 9F OOA1S PUSHAB DANEKT oe ae 

spunea: 0328 6 oP Soate SUSHAB 6 —< > 0887 

oon ie ES Bike ee oan 

~— cf 84 SF fe boa88 rt A at ai + 0890 
7E 83 BF 9A 00A34 MOVZBL #131. =($P) ; 

00006 CF sae 3 4 GOAse CALS. Os, PARSE FILENAME Foon 
O30C C7 «OF O0A41 PUSHAB D_PROTECTION 

00006 FE ae HE GRAMME GANAS, FTzg™MbEforec rion 009s 
06BC C7 9F OOAGE PUSHAB D_RETAIN ALL ; 

00006 Fae BE GRABS GANGS, FRc PANE onss 
0600 C7 9F OOA5B PUSHAB D_RETAIN ERROR ; 

00006 CF G2 FB OOASF CALL 2 PARSE IF _TRUE ~ 
E gE F 9A O0A64 MOVZBL 42 ii ; 
me a Bae chite, 9 PARSE_IF_FALSE : 

00008 feng Be SE ROME GALLS, 7, PARSE IF t conn 
0464 C7 9F OOA7S PUSHAB D_SEARCH 

0000 seg BERR BRME —GAtSBL fp Patag seamen. stun 90 
i a ee eee 2 
ms ABA CALLS #3, PARSE _TF_TRUE_FALSE 3 

cree 4a BF 9A OOABE Rovio, 76, “SBT ; 0903 
se 30 £2 OF OAS? PUSHAD D SEPARATE. BURST 
eh A CALLS #3, PARSE IF_TRUE_FALSE ; 

sates 40 BF 9h QOAAD Rove. ATP, (SPT ; 0905 
Mh RB RUE Fc a : 

00006 CF asl 4 FB AAC CALLS a3 PARSE _IF_TRUE_FALSE cel 
t 51 Bi 9A OOABI MOVZBL #81, -(SPY ; 
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7E 8F 9A OOABS MOVZBL #80, =(SP) ; 
0730 fy $f bongs PUSHAB D_SEPARATE RESET : 
00006 cE 3 FB OOAB CALLS #3, PARSE_COMMA_LIST : 
E 5A F OA MOVZBL #90, <(SPY ; 
7E 9 BF 9A MOVZBL #89. =(SP) 3 
0748 C7 OF PUSHAB D_SEPARATE_TRAILER : 
00006 CF 3 FB ALLS #3, PARSE_TF_TRUE_FALSE : 
E SA BF OA MOVZBL #96, =(SPY : 
7E 51 BF OA MOVZBL #81. =(SP) ; 
7E 4D «BF OOA MOVZBL #77. =(SP) : 
7E 4A BF 9A MOVZBL #74. =(SP) : 
0474 (C7 OF PUSHAB D_SEPARATE : 
00006 CF 05 FB CALLS #5, PARSE_IF_FALSE : 
7E 94 BF 9A MOVZ Hits, -(SP) : 
7E 93 BF 9A 0 MOVZBL #147. =(SP) : 
0408 C7 OF O PUSHAB D_TERMINAL ; 
00006 CF 03 FBO CALLS #3, PARSE_IF_TRUE_FALSE ; 
7E 95 BF 9A0 MOVZBL #149, -(SP) : 
O4EC C7 OF O USHAB D_TOP_OF_FILE : 
00006 CF 02 FBO ALLS #2, PARSE_IF_TRUE : 
7E 98 8F 9A 0 34$:  MOVZBL #152, -(SP) F 
7E 97 BF 9A MOVZBL #151. =(SP) ; 
053 46C7 «OOF 00 USHAB D_WSOEFAULT ; 
00006 CF 03 FB 00 CALLS #3, PARSE WORKING_SET ; 
7€ 9A «BF O9A 00 MOVZBL #154, -(SP) ; 
7E 99 8F 9A 00 MOVZBL #153. =(SP) : 
054C C7 9F 00 USHAB D_WSEXTENT : 
0000G CF 03 FB 00 CALLS #3, PARSE_WORKING_SET 5 
7E 9¢ 8F 9A 00 MOV ZBL #86, -(SP) : 
7E 98 BF OA 008 MOVZBL #155. -(SP) : 
055¢ C7? 9F 00B34 PUSHAB D_WSQUOTA ; 
00006 CF 03 FB 00838 CALLS #3, PARSE_WORKING_SET ; 
11 11 00B30 BRB 36$ F 
02c4 C7 9F OOB3F 35$: | PUSHAB D_MANAGER : 
000000006 00 01 FB 00843 CALLS AT, CLISPRESENT : 
06 50 €9 OOB4A BLBC =: RO, 378 ; 
52 iC bo 0B4D MOVL #28, FUNC : 
OOBF 31 00B5 365: BRW : 
7E 8 i 9a 00853 37$: MOVZBL #134, -(SP) F 
7 DD 0085 PUSHL 7 : 
00006 CF 02 FB 0859 CALLS #2, PARSE QUEUE : 
59 00000000" 8F D0 O0BSE OVL 91 ee heated tact - ; 0937 
1¢ A? OF 00B65 PUSHAB D~ABORT : 0939 
000000006 00 QI FB 0868 CALLS &T, CLISPRESENT : 
0 0 € OB6F BLBC =_- RO, 38$ ; 
52 01 DO 008 2 MOVL #1. FUNC : 
0300 C7 9F 00875 38$ PUSHAB D_NEXT > 0940 
000000006 00 gi FB 0879 CALLS AT, CLISPRESENT ; 
03 0 €9 008 9 BLBC 8=OsaR ; 
2 18 BO B MOVL #27, FUNC ; 
041¢ F 00886 39S PUSHAB D_RESET > 0941 
000000006 1 FB OOBBA CALLS aT, CL ISPRESENT : 
18 O94 ROVE 23, FUNC 
0188 ( oF B97 40$ PUSHAB D_ENTRY : 0943 
00006 CF 01 FB 0089B CALLS #7, PARSE_ENTRY : 


3; Routine Size: 


000000006 


00006 
00006 
00006 


00006 


00006 


00006 


000000006 


000000006 


000000006 


00006 


0000° 


Routine Base: 
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3 
‘5 


7E 


CF 
59 00000000* 


CF 
59 
CF 
09 


00 


oo OMOWUO 
wo OfLnFfo 


w 
> 


CF 


040C 


00890000 


040C 


0188 


00000000* 


oc 


0188 


AE 
CF 10000000 


CODE + O7DC 


Oom noo TMOMOMO "OVO VCOONTO-9COoO"SO OTN n” —n On NOVONVIIOM"oOOMmM 


3 16 
16-Sep-1984 
14-Sep-1984 


42$: 


43$: 


44%: 


45$: 
46$: 


47$: 


BLBC 


13:08: 


yeu Bliss-32 V4.0-74 
CLIUTL.SRCJQUEMAN.B32; 


1$ 

UNC 

UEUVE 

" PRESENT 
U 

4 

U 

U 


N 
3 (Q_ICURSOR) + 
RSOR) + 


EUE 
"2 PARSE_QUEUE 
#71, =<(SPY 

HO 


D_HOLD 
#2, PARSE_IF_TRUE 
D_PRIORITY 

l, PARSE_PRIORITY 


é 
i 
5 


U 
#3, PARSE QUEUE 
A<<<QUEMANS_FACILITY@16>+4904>+4>, = 
MESSAGE 


D_ENTRY 
#T, PARSE_ENTRY 
W<<<QUEMANS_FACILITY@16>!4472>!4>, = 
Q_MESSAGE 


R 
#1, PARSE_NAME 
(Q” 1CURSOR) 

R3, #9 

44$ 


P.AII 

#i, SYSSPURGWS 

-(§P) 
SB 


10 
ITEM BUFFER 
=(SP 

FUNC 


ST 

#1, 1 {SSSiGum, 

? s 

SAVED _DCURSOR, Q_DCURSOR 


aT, PARSE ENTRY 
1968638456, EXIT_STATUS, RO 
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74 Pa 2 
voe=0 CLIUTL. SRCJQUEMAN. B32: ve 35 
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; 913 1 18 1 ROUTINE HANDLER(SIG,MECH)= 

3; 9146 1 1 

s 915 1021 1 !4¢ 

3 318 1 ¢ 1! 

; WF 10 1 ! FUNCTIONAL DESCRIPTION: 

: 218 + 61! This routine is the condition handler for the main routine. It 
; a 8 2 } saves the most severe condition as the exit status. 

; 921 \% 7 1 =! INPUT PARAMETERS: 

3 3 ¢ 18 3 : Standard VMS condition handler parameters. 

; ase 18 QO 1 ! IMPLICIT INPUTS: 

; 925 1031 1! NONE 

; 926 1938 77 

3 44 1033 1 ! OUTPUT PARAMETERS: 

; 928 Re 1! NONE 

3 368 1035 1! 

; 930 1036 1 ! IMPLICIT OUTPUTS: 

3 hy Ht 14 : EXIT STATUS - Contains the most severe status encountered. 
$ 338 1039 1 ! ROUTINE VALUE: 

3; 934 1040 1! SS$_RESIGNAL 

s 935 1041 1! 

; 936 + od 1 ! SIDE EFFECTS: 

s 957 10435 1! NONE 

; 938 1044 1! 

3; 939 1045 1 !<- 

; 940 1046 1 

3 941 1047 2 BEGIN 

3; 94 1048 § P 

3 94 1049 $1G: REF BBLOCK, ! Signal parameters 

> 9446 1050 MECH: REF BBLOCK; ! Mechanism parameters 

: 945 1051 BIND 

: 946 1036 SIGNAME = SIGCCHFSL_SIG_NAME] : BBLOCK; ! Name of signal 

3 947 1053 2 

; 948 1054 

3: 949 1055 ' Save the most severe condition as the exit status. 

; 950 1056 : 

3; 951 1057 1 

; 1058 NOT .SIGNAME ! If an error signal 

s; 9 1059 4 AND ( errr mete EVERITY) ! and severity iS worse 
3: 954 1060 4 ~EXIT_STATUS evesy SEVERITY) 

: 955 1061 3 Rent. STATUSCSTS$V_SEVERITYJ) ! or no errors yet 

: 956 1996 THEN 

3: 957 106 EXIT_STATUS = .SIGNAME; ! then save it for exit 
; 958 1064 

3; 959 1065 ; 

: 960 1066 SS$_RESIGNAL ! Resignal to get message 
3; 961 1067 1 END: 


52 0000" cr ge oo0a2 MYER acvAR EXIT Status, Ra g 1019 
50 04 AC be i $0009 ADDL a4, SIG, RO’ : 1052 


rebar men caegctols (8d WRIA eESN 


8 £90) 3; 105 

5 63 af F oF saa mm. i, “exatt st STATUS, R1 : 1828 
1 D 4 CMPZV ; 
A 00019 BGTRU F 

03 62 €9 0001B BLBC - EXIT_STATUS, 2$ + 1061 

62 60 DO OOO1E 1$: MOVL (R OF EXIT_ STATUS + 1063 

50 0918 8F 3C 00021 2$: MOVZWL #2328, RO ~ + 1067 
04 00026 RET : 


; Routine Size: 39 bytes, Routine Base: CODE + 1448 


tide Queue Management Commands 15-Sep-1984 99: 16 38 a Bliss =-32 V4.0-74 


p-1 LIUTL.SRC JQUEMAN.B32: 
> 963 1 1 END 
> 964 1988 0 ELUDOM 


~-EXTRN LIBSSIGNAL 


: PSECT SUMMARY 
: Name Bytes Attributes 
> DATA OVEC, WRT, RO ,NOEXE, NOSHR, LCL, REL, CON NOPIC ALIGN(2) 
; CODE 5234 NOVEC *NOWRT, RD , CKXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Ba ci SOS y hace te oa ogee ee - Syabols «cooe--- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 159 1 581 00:00.9 
3; Information: 1 
3; Warnings: 0 
; Errors: 
COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1S$:QUEMAN/OBJ=OBJ$:QUEMAN MSRC$:QUEMAN/UPDATE=(ENHS : QUEMAN) 
; size: 3222 code_+ 2016 data bytes 
un Time: 00:54.3 


3 Elapsed Time: - 03:12.4 
3 Lines/CPU Min: 1180 

3 Lexemes/CPU-Min: 19528 

; Memory Used: 775 pages 
3; Compication Complete 
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